(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      4653,        121]
NotebookOptionsPosition[      3707,        100]
NotebookOutlinePosition[      4239,        118]
CellTagsIndexPosition[      4196,        115]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"N", "[", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "1", "2"], 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"2", " ", "x"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "x", "]"}], "2"]}], 
      RowBox[{"2", "+", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "x", "]"}], "4"]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9419838232033167`*^9, 3.941983865969472*^9}, {
   3.941984022022884*^9, 3.9419840273513737`*^9}, {3.9419841043594065`*^9, 
   3.9419841729972787`*^9}, 3.9419843274709516`*^9, {3.94198742241188*^9, 
   3.941987436101655*^9}, {3.9419874683915195`*^9, 3.941987476056554*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"fc90ae22-276b-482a-9b9b-e1d5b0ad5402"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"Log", "[", 
      RowBox[{"2", "+", 
       SuperscriptBox[
        RowBox[{"Cos", "[", "x", "]"}], "4"]}], "]"}]}], "-", 
    FractionBox[
     RowBox[{"ArcTan", "[", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"Cos", "[", "x", "]"}], "2"], 
       SqrtBox["2"]], "]"}], 
     SqrtBox["2"]]}]}], ";"}], "\n", 
 RowBox[{"b", "=", 
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{"f", "[", "2", "]"}], "-", 
    RowBox[{"f", "[", "1", "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.9419839251500463`*^9, 3.9419840104295835`*^9}, {
   3.9419841102545414`*^9, 3.941984123646449*^9}, {3.941984196585704*^9, 
   3.941984214602996*^9}, {3.941984272118063*^9, 3.9419842851190166`*^9}, 
   3.941984334763297*^9, {3.9419843764748173`*^9, 3.9419844931293416`*^9}, {
   3.9419846142811804`*^9, 3.941984623929694*^9}, {3.941984815526265*^9, 
   3.9419848411962137`*^9}, {3.9419874723520203`*^9, 3.9419874725923615`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"da328a6d-e737-4ca0-82e4-b5e23cf4b763"],

Cell[BoxData[
 RowBox[{"a", "\[Equal]", "b"}]], "Input",
 CellChangeTimes->{{3.941984895526633*^9, 3.941984899926063*^9}, {
  3.94198748447167*^9, 3.9419874850920258`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"285464d1-e4ad-466b-bf1b-aee28c2d5d71"],

Cell[BoxData[
 RowBox[{
  RowBox[{"0.1", "+", "0.2"}], "\[Equal]", "0.3"}]], "Input",
 CellChangeTimes->{{3.941984995426293*^9, 3.9419849991456804`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"70c66931-9c16-4ddb-928f-8266cb76de80"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "0.00000000000000000000000000000000000000000000000000001", " ", "+", " ", 
   "0.00000000000000000000000000000000000000000000000000002"}], " ", 
  "\[Equal]", " ", 
  "0.00000000000000000000000000000000000000000000000000003"}]], "Input",
 CellChangeTimes->{{3.941985011261875*^9, 3.941985047296467*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"e80de509-22f2-4c89-92c8-c5f2fbbe8ee9"],

Cell[BoxData["Integrate"], "Input",
 CellChangeTimes->{{3.941985126925828*^9, 3.9419851300158987`*^9}, {
  3.9419853961559863`*^9, 3.9419854051358457`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"3b1bb77b-609a-4e19-a604-62546ca99cf0"]
},
WindowSize->{1920, 997},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->FrontEnd`FileName[{$RootDirectory, "C:", "Users", "YU", 
   "AppData", "Roaming", "Mathematica", "SystemFiles", "FrontEnd", 
   "StyleSheets"}, "myStyle.nb", CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 841, 20, 90, "Input",ExpressionUUID->"fc90ae22-276b-482a-9b9b-e1d5b0ad5402"],
Cell[1402, 42, 1152, 29, 167, "Input",ExpressionUUID->"da328a6d-e737-4ca0-82e4-b5e23cf4b763"],
Cell[2557, 73, 251, 4, 35, "Input",ExpressionUUID->"285464d1-e4ad-466b-bf1b-aee28c2d5d71"],
Cell[2811, 79, 232, 4, 35, "Input",ExpressionUUID->"70c66931-9c16-4ddb-928f-8266cb76de80"],
Cell[3046, 85, 419, 8, 35, "Input",ExpressionUUID->"e80de509-22f2-4c89-92c8-c5f2fbbe8ee9"],
Cell[3468, 95, 235, 3, 56, "Input",ExpressionUUID->"3b1bb77b-609a-4e19-a604-62546ca99cf0"]
}
]
*)

